home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / void.d < prev    next >
Text File  |  1997-10-26  |  789b  |  28 lines
  1. DEFINITION MODULE Void;
  2.  
  3. FROM SYSTEM IMPORT BYTE, WORD, LONGWORD, ADDRESS;
  4.  
  5. FROM MagicSys IMPORT lBITSET;
  6.  
  7. TYPE voidType = RECORD
  8.                   CASE :CARDINAL OF
  9.                     1 : b : BYTE|
  10.                     2 : w : WORD|
  11.                     3 : l : LONGWORD|
  12.                     4 : card : CARDINAL|
  13.                     5 : int  : INTEGER|
  14.                     6 : lcard: LONGCARD|
  15.                     7 : lint : LONGINT|
  16.                     8 : char : CHAR|
  17.                     9 : bset : BITSET|
  18.                     10: lbset: lBITSET |
  19.                     11: bool : BOOLEAN; |
  20.                     12: r    : ARRAY [0..3] OF INTEGER|
  21.                     13: a    : ADDRESS;
  22.                   END
  23.                 END;
  24.  
  25. VAR v : voidType;
  26.  
  27. END Void.
  28.